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Demise of Bailey's DataPhile Digest 


Unfortunately, we no sooner sent out last month's AAL than we 
received a letter from the Baileys saying that they have ceased 
to publish the DataPhile Digest. 


Quarterly Disk 13 


QD 13 is now ready, and it includes both installments of ProDOS 
commented source code as listed last month and this. The code 
is in the format used by the S-C Macro Assembler. (Since the 
disk also includes the CONVERT S-C TO TEXT program in this 
issue, all of you can use it!) Quarterly Disks are $15 each, 
or $45 for a year's subscription. 


Subscription Rates 


Remember, subscriptions to Apple Assembly Line will be 
increasing to $18/year effective January 1. Since some of you 
may not receive this issue (or your renewal notice) until after 
that date, we'll extend the deadline to January 15 for 
renewals. 


Commented Listing of ProDOS $F90C-F995, SFDOO-FE9A, SFEBE-FFFF 
eccocceccceee cBOD Sander-Cederlof 


Last month I printed the commented listing of the disk reading 
subroutines. This month's selection covers disk writing, track 
positioning, and interrupt handling. Together the two articles 
cover all the code between SF800 and SFFFF. 


Several callers have wondered if this is all there is to 
ProDOS. No! It is only a small piece. In my opinion, this is 
the place to start in understanding ProDOS's features: A 
faster way of getting information to and from standard 
floppies. But remember that ProDOS also supports the ProFILE 
hard disk, and a RAM disk in the extended Apple //e memory. 


Further, ProDOS has a file structure exactly like Apple /// 
SOS, with a hierarchical directory and file sizes up to 16 
megabytes. 


Further, ProDOS includes support for a clock/calendar card, 
80-columns with Smarterm or //e, and interrupts. 


ProDOS uses or reserves all but 255 bytes of the 16384 bytes in 
the language card area (both $DOQ0O0-DFFF banks and all 
#EQOO-FFFF). The 255 bytes not reserved are from $D001 through 
SDOFF in one of the $D000 banks. The byte at $p000 is 
reserved, because ProDOS uses it to distinguish which $D000 
bank' is switched on when an interrupt occurs. The space at 
SBFOO-BFFF is used by ProDOS for system linkages and variables 
(called the System Global Page). 


In addition, if you are using Applesoft, ProDOS uses memory 
from $9600-BEFF. This space does not include any file buffers. 
When you OPEN files, buffers are allocated as needed. CLOSEing 
automatically de-allocates buffers. Each buffer is 1024 bytes 
long. As you can see, with ProDOS in place your Applesoft 
program has less room than ever. 


Track Seeking: S$F90C-F995 


The SEEK.TRACK subroutine begins at S$F90C. The very first 
instruction multiplies the track number by two, converting 
ProDOS logical track number to a physical track number. If you 
want to access a “half-track” position, you could either store 
a NOP opcode at SF90C, or enter the subroutine at SF9OD. 


A table is maintained of the current track position for each of 
up to 12 drives. I call it the OLD.TRACK.TABLE. The 
subroutine GET.SSSD.IN.X forms an index into OLD.TRACK.TABLE 
from slot# * 2 + drive#. There are no entries in the table for 
drives in slots 0 or 1, which is fine with me. pProDOS uses 
these slots as pseudo slots for the RAM-based pseudo-disk and 
for ProFILE, if I remember correctly. 


The code in SEEK.TRACK.ABSOLUTE is similar but not identical to 
code in DOS 3.3. The differences do not seem to be 
Significant. 
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S-C Macro Assembler Version 1.O..ccrceccccccccsccccvccesvecssecscee $00.00 
S-C Macro Assembler VersSion 1.1 Update... ccccccccccccceceseccsvecee Sl 2.50 
Full Screen Editor for S-C Macro Assembler..........(reg. $49.00) $40.00** 
Includes complete source code. 
s-C Cross Reference Utility... cccccccccccceveccccccccsccccevessesese 920.00 
S-C Cross Reference Utility with Complete Source Code........eee2+950.00 
DISASM Dis-Assembler (RAK-“WALE) cc cc ccc ccc c ccc ccccescccccccesccecc ee 530.00 
Quick-Trace (Anthro-Digital) ....ccccccceseccccccceee (reg. $50.00) $45.00 
The Visible Computer: 6502 (Software Masters).......(reg. $50.00) $40.00** 


S-C Word Processor (the one we USE!) ...cccccccccesccccsesccsscessee 90.00 
With fully commented source code. 

Applesoft Source Code On DiBk..ccccccccccsccccseccccsecccccseseee ee SD0,00 
Very heavily commented. Requires Applesoft and S-C Assembler. 

ES-CAPE: Extended S-C Applesoft Program Editor.....(reg. $60.00) $40.00** 


AAL Quarterly DiSkS..cccccccccccccccccccccccccccecocccccccece ACH $15.00 

Each disk contains all the source code from three issues of “Apple 
Assembly Line", to save you lots of typing and testing time. 
QD#1: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 
QD#10: Jan-Mar 1983 QD#11: Apr-Jun 1983 QD#12: Jul-Sep 1983 
QD#13: Oct-Dec 1983 


Double Precision Floating Point for AppleSoft....cccccccvcccesevee es 990.00 

Provides 2l-digit precision for Applesoft programs. 

Includes sample Applesoft subroutines for standard math functions. 
Amper-Magic (Anthro-Digital) ....cccccescsesccceccvece (LEGe $75.00) $67.50 
Amper-Magic Volume 2 (Anthro-Digital)....ce.eeceesee (reg. $35.00) $30.00 
Routine Machine (Southwestern Data Systems).........(reg. $64.95) $60.00 
FLASH! Integer BASIC Compiler (Laumer Research).....(reg. $79.00) $50.00** 
Fontrix (Data TranSfOrMS) ...ccccccesccsccvcrcccesevevecsccsecsecs $75.00 
Aztec C Compiler System (Manx Software)....ccceseee (reg. $199.00) $180.00 


Blank DisSketteS....cccrscccccccveccscecccsecsecseeepackage Of 20 for $45.00 
(Premium quality, single-sided, double density, with hub rings) 

Vinyl disk pages, 6"x8.5", hold one disk each...ccccsccceceeelO for $6.00 

Diskette Mailing ProtectorS...c.cccccccccccccccesecselL0-99: 40 cents each 

100 or more: 25 cents each 

ZIF Game Socket Extender.ccccccrcccccccccccccssccsvessecccssccseees 20.00 

Shift-Key MOGIFICr cc ec cccc ccc ccc ccccccc ccc ccc cc ec ccc ccc ccc ccc cece oe 515200 


Grappler+ Printer Interface (Orange Micro) ..ceccevccceee ($175.00) $150.00 
Bufferboard 16K Buffer for Grappler (Orange Micro).....($175.00) $150.00 
Buffered Grappler+ NEW!! Interface and 16K -Buffer.....($239.00) $200.00 


Books, BookS, BOOKS... c.ccccccesecscseseccsesesee compare Our discount prices! 
"The Apple ][ Circuit Description", Gayler.....eee.ee($22.95) $21.00 
“Enhancing Your Apple II, vol. 1", Lancaster........-($17.95) $17.00 
"Incredible Secret Money Machine”, Lancaster....ceseee ($7.95) $7.50 
"Beneath Apple DOS", Worth & LeChner...c.ccscsccccceee (919.95) $18.00 
“Bag of Tricks", Worth & Lechner, with diskette......($39.95) $36.00 
“Assembly Lines: The Book", Roger Wagner...cccceseeee (919.95) $18.00 
“What's Where in the Apple", Second Edition.......... ($24.95) $23.00 
“What's Where Guide" (updates first edition) .......e-- ($9.95) $9.00 
"6502 Assembly Language Programming", Leventhal......($18.95) $18.00 
"6502 Subroutines", Leventhal....cccccccccccsccccecser (917.95) $17.00 

Add $1.50 per book for US postage. Foreign orders add postage needed. 


Whatever Else You Ne€d....ccccccccsvccccssevcceseeeCall for Our Low Prices 
***x S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
wae (214) 324-2050 . wee 
*** We accept Master Card, VISA and American Express *** 


(** Special price to subscribers only through December 31, 1983.) 
** Last Chance!! Order now and save. 
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Disk Writing: SFDOO-FE9A 


The overall process of writing a sector is handled by code in 
RWTS, which was listed last month. After the desired track is 
found, RWTS calls PRE.NYBBLE to build a block of 86 bytes 
containing the low-order two bits from each byte in the 
caller's buffer. PRE.NYBBLE also stores a number of buffer 
addresses and slot*l6 values inside the WRITE.SECTOR 
subroutine. Next RWTS calls READ.ADDRESS to find the sector, 
and then WRITE.SECTOR to put the data out. 


WRITE.SECTOR is the real workhorse. And it is. very critically 
timed. Once the write head in your drive is enabled, every 
machine cycle is closely counted ‘until the last byte is 
written. First, five sync bytes are written (ten bits each, 
1111111100). These are written by putting S$FF in the write 
register at 40 cycle intervals. Following the sync bytes W.S 
writes a data header of D5 AA AD. 


Second, the 86-byte block which PRE.NYBBLE built is written, 
followed by the coded form of the rest of your buffer. 
WRITE.SECTOR picks up bytes directly from your buffer, keeps a 
running checksum, encodes the high-order six bits into an 8-bit 
value, and writes it on the disk...one byte every 32 cycles, 
exactly. Since your buffer can be any arbitrary place in 
memory, and since the 6502 adds cycles for indexed instructions 
that ¢ross page boundaries, WRITE.SECTOR splits the buffer in 
parts before and after a page boundary. All the overhead for 
the split is handled in PRE.NYBBLE, before the timed operations 
begin. 


Finally, the checksum and a data trailer of DE AA EB FF are 
written. 


Empty Space: SFEBE-FF9A 


This space had no code in it. Nearly a whole page here. 


Interrupt & RESET Handling: S$FF9B-FFFF 


If the RAM card is switched on when an interrupt or RESET 
occurs, the vectors at SFFFA-FFFF will be those ProDOS 
installed rather than the ones permanently coded in ROM. It 
turns out the non-maskable interrupt (NMI) is still vectored 
down into page 3. But the more interesting IRQ interrupt is 
now vectored to code at SFF9B inside ProDOS. 


The ProDOS IRQ handler performs two functions beyond those 
built-in to the monitor ROM. First, the contents of location 
$45 are saved so that the monitor can safely clobber it. 
Second, a flag is set indicating which $D000 bank is currently 
Switched on, so that it can be restored after the interrupt 
handler is finished. (The second step is omitted if the 
interrupt was caused by a BRK opcode.) 
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If the IRQ was not due to a BRK opcode, a fake "RTI" vector is 
pushed on the stack. This consists of a return address of 
SBF50 and a status of $04. The status keeps IRQ interrupts 
disabled, and $BF50 is a short routine which turns the ProDOS 
memory back on and jumps up to INT.SPLICE at SFFD8: 


BF50- 8D 8B CO STA $C08B 
BF53- 4C D8 FF JMP SFFD8 


Of course, before coming back via the RTI, ProDOS tries to USE 
the interrupt. If you have set up one or more interrupt 
vectors with the ProDOS system call, they will be called. 


INT.SPLICE restores the contents of $45 and switches the main 
$D000 bank on. Then it jumps back to $BFD3 with the 
information about which $pD000 bank really should be on. S$BFD3 
turns on the other bank if necessary, and returns to the point 
at which the interrupt occured. 


The instruction at $FFC8 is interesting. STA $C082 turns on 
the monitor ROM, so the next instruction to be executed is at 
SFFCB in ROM. This is an RTS opcode, so the address on the 
stack at that point is used. There are two possible values: 
SFA41 if an IRQ interrupt is being processed, or $FA61 if a 
RESET is being processed. This means the RTS will effectively 
branch to $FA42 or S$FA62. 


Uh Oh! At this point you had better hope that you are not 
running with the original Apple monitor ROM. The Apple II Plus 
ROM (called Autostart Monitor) and the Apple //e ROM are fine. 
SPA42 is the second instruction of the IRQ code, and SFA62 is 
the standard RESET handler. But the original ROM, like I have 
in my serial 219 machine, has entirely different code there. 


I have an SFF at $FA42, followed by code for the monitor § 
(single step) command. And SFA62 is right in the middle of the 
S command. There is no telling what might happen, short of 
actually trying it out. No thanks. Just remember that RESET, 
BRK, and IRQ interrupts will not work correctly if they happen 
when the RAM area is switched on and you have the old original 
monitor in ROM. 


There is another small empty space from SFFE9 through SFFF9, 17 
bytes. 


Perhaps I should point out that the listings this month and 
last are from the latest release of ProDOS, which may not be 
the final released version. However, I would expect any 
differences in the regions I have covered so far to be slight. 


nw 


1000 #----------~.---~~..------------- 
1010 SSAVE S.PRODOS F800-FFFF 

003A- 1030 RUNNING. SUM -EQ $3A 

003A- 1040 TBUF. -EQ $3A 

003B- 1050 BYTE. AT.BUFOO .EQ $3B 

003C~ 1060 BYTE. AT.BUFO1 «EQ $3C 

003D- 1070 LAST. BYTE ~EQ $3D 

003E- 1080 SLOT. x16 -EQ $3E 

003F- 1090 INDEX.OF.LAST.BYTE .EQ $3F 
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RWB.COMMAND . 
RWB. SLOT 
RWB. BUFFER 
RWB . BLOCK 


"EO 
EQ 


ae DSSSXXXX 
46 4? 0...279 


SAVE.LO 
SAVE.DO 


C45 
00 


INTAREG 
INTBANKID 


IRQXIT. 


3 


~EQ 


DRV. PHA 


DRV.MTROFF 


DRV. MTR 


SE 
ON 


<<<COMPUTED >>> 


MODIFIER -EQ $60 <<<SLOT # 16>>> 


CLEAR. PHASES 
LDY 


1 


GET PHYSICAL TRACK # 


HDR. TRACK SAVE HERE 
CLEAR.PHASES (CARRY WAS CLEAR ) 


R SSSD. x 
OLD. TRACK. TABLE, X 
A CURRENT. TRACK 


HDR. TRACK 
OLD.TRACK . TABLE, X 
SEEK. TRACK . ABSOLUTE 


#3 


JSR PHASE. COMMANDER 
DEY 


BPL .1 
tek CURRENT . TRACK BACK TO LOGICAL TRACK # 


SIGNAL NO ERROR 


SEEK. TRACK . ABSOLUTE 
STA TARGET.TRACK SAVE ACTUAL TRACK # 
Sala CURRENT.TRACK ALREADY THERE? 
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LDA 
STA 


# 
STEP .CNT 


# STEPS SO FAR 


LDA CURRENT. TRACK 
ora CURRENT. TRACK .OLD 


SBC TARGET. TRACK 
BEQ .6 


BCS 
EOR 
INC 
BCC 


ADC #$FE 
DEC CURRENT. TRACK 


dire 
CURRENT . TRACK 


-»-WE HAVE ARRIVED 
CURRENT > DESIRED 
CURRENT < DESIRED 


e+ ALWAYS 
CS., so A=A-1 


CHE STEP. -CNT GET MINIMUM OF: 


JSR 


DEL 


1. # OF TRACKS TO MOVE LESS 1 


CC 
LDA STEP.CNT 2. # OF STEPS SO F 
3. EIGHT 


TURN NEW PHASE ON 


7 
LDA ONTBL , Y DELAY 
AY. 100 


LDA CURRENT. TRACK .OLD 
CLC TUR 


URN OLD PHASE OFF 


-December, 1983....Copyright (C) S-C SOFI'WAKE 


Appleseed is a complete computer system. It is designed using the bus 
conventions established by Apple Computer for the Apple ][{. Appleseed is 
designed as an alternative to using a full Apple ]{ computer system. The 
Appleseed product line includes more than a dozen items including CPU, 
RAM, EPROM, UART, UNIVERSAL Boards as well as a number of 
other compatible items. This ad will highlight the Mother board. 


BX-DE-12 MOTHER BOARD 


The BX-DE-12 Mother board is designed to be fully compatible with all of 
the Apple conventions. Ten card slots are provided. Seven of the slots are 
numbered in conformance with Apple standards. The additional three 
slots, lettered A, B and C, are used for boards which don’t require a 
specific slot number. The CPU, RAM and EPROM boards are often placed 
in the slots A, B and C. 


The main emphasis of the Appleseed system is illustrated by the Mother 
Board. The absolute minimum amount of circuitry is placed on the Mother 
Board; only the four ICs which are required for card slot selection are on 
the mother board. This approach helps in packaging (flexibility & smaller 
size), cost (buy only what you need) and repairability (isolate and fix pro- 
blems through board substitution). 


Appleseed products are made for O.E.M.s and serious industrial/scientific 
users. Send for literature on the full line of Appleseed products; and, watch 
here, each month, for additional items in the Appleseed line. 


Appleseed products are not sold through computer stores. 
Order direct from our plant in California. 
Apple is a registered trademark of Apple Computer, Inc. 


DOUGLAS ELECTRONICS 
718 Marina Blvd., San Leandro, CA 94577 ® (415) 483-8770 
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975- 20 8A F9 3450 JSR PHASE.COMMANDER 
978- BO 7C FB 3460 LDA OFFTBL,Y DELAY 
3 B- 20 85 FB 3470 JSR DELAY. 100 
‘87E- EE 6B FB 3480 INC STEP.CNT # OF STEPS SO FAR 
'981- DO BD 3490 BNE . . ALWAYS 
983- 20 85 FB 3500 .6 JSR DELAY. 100 
986- 18 3510 CLC TURN PHASE OFF 
987- AD 5A FB 3520 7 LDA CURRENT. TRACK 
3540 (A) = TRACK # 
3590 & -CC. THEN PHASE OFF 
30 0 * “CS. THEN PHASE ON 


3580 PHASE.COMMANDER 
AND 


"9 A- 29 03 3590 #3 ONLY KEEP LOWER TWO BITS 
>O8C- 2A 600 ROL O0O0OXXC 
"98D- 05 3E 610 ORA SLOT.X16 OSSSOXXC 
7390- BD 80 CO 36 0 LDA DRV.PHASE,X 
7993- A6 3E 0 LDX SLOT.X1 RESTORE SLOT #16 
7995~ 60 3650 RTS 
7120 #.--------~~--------------------- 
130 WRITE. SECTOR 
"D00- 38 7140 SEC IN CASE WRITE-PROTECTED 
a ap we es Hie EM pey-gttey 
FDO7- 10 03 7170 BPL .1.~-~«w eNOT WRITE PROTECTED 
FDO9- 4C DF FD 1180 . JMP WS.RET ...PROTECTED, ERROR 
fpore 86 SA s510 OSTA TBUE.O 
71220 #---WRITE 5 SYNC BYTES-~--------- 
FD11- AQ FF _—-_ 7230 LDA #$FF 
FD13- 9D 8F CO 7240 STA DRV.Q7H,X 
Bigs IB © tage SRN RI GEL 
FD1B- EA 7270 NOP $FF AT 40-CYCLE INTERVALS LEAVES 
FD1C= 48°: 7280 PHA TWO ZERO-BITS AFTER EACH $FF 
FD1D- 68 7290 PLA 
Bie tg? 
20- 20 ET FD 1320 JSR WRITE2 
a a ee BNE .2 
7350 ®---WRITE $D5 AA AD HEADER------- 
FD26- AQ DS 7360 LDA #$D5 
FD28- 20 E6 FD 7 70 JSR WRITE1 
FD2B- AQ AA —s7380 LDA #$AA 
pe gem ie ar ae 
FD32- 20 E6 FD 7410 JSR WRITE1 
7420 #---WRITE 86 BYTES FROM TBUF------------------- 
327 98 hy 8) TYA = 
FD36- AO 56 450 LDY #86 
eee Bg 08 FE nt PRE SBUF,Y 
FD3D~ 59 FF FA Tago * EOR TBUF-1,Y 
BBM BB og Pa fot EDK rps manpeTanteaut 
FD46- 9D BD CO 1220 STA DRV. O6H, x 
FDUQ- p &c C0 530 LDA DRV.Q6L,X 
SOube BO EB veng oer 3 
FD4F- A5 3A = 7560 LDA TBUF.O 
1570 #---WRITE PORTION OF BUFFER------ 
7580 *---UP TO A PAGE BOUNDARY-------- 
FD51- AO 00 ~=—*7590 LDY ##-# FILLED IN WITH LO-BYTE OF BUFFER ADDRESS 
53- 59 00 47 7600 WS...5 EOR BUFF.BASE,Y HI-BYTE FILLED IN 
Bae gre je a a 
FD59- BD 03 FA 7630 LDA BIT.PAIR.TABLE+3, X 
FD5C- A2 60 18 O WS...6 LDX #MODIFIER 
FD5E- 9D 8D CO 7650 STA DRV.Q6H,X 
FD61- BD 8C CO 7660 LDA DRV.Q6L.X 
FD64- B 00 47 7870 WS...7 LDA BUFF.BASE,Y HI-BYTE FILLED IN 
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7700 #---BRANCH ACCORDING TO BUFFER BOUNDARY CONDITIONS---~-- 
FD6A- AS 3B. = 7710 LDA BYTE. AT.BUFOO 
FD6C- FO 52s 7720 BEO WS..17 .BUFFER ALL IN ONE PAGE 
FD6E- A5 BF 1730 LDA INDEX.OF.LAST. BYTE 
FD70- FO 41 ~=—- 7740 BEQ WS..1 ...ONLY ONE BYTE IN NEXT PAGE 
7750 #---MORE THAN ONE BYTE IN NEXT PAGE-------------------- 
FD72- 4A 1760 LSR DELAY TWO CYCLES 
FD73- A5 3B 70 (DA BYTE.AT.BUFOO™ PRE. NYBELE ALREADY. ENCODED 
FD75- 9D 8D CO 7780 STA DRV.Q6H,X THIS BYTE 
FD78- BD 8C CO 7190 LDA DRV.Q6L,X 
.FD7B- A5 3C 7800 LDA BYTE. AT.BUFO1 
PDVE. C8 rae INY 
FD7F- BO 18 7830 BCS WS..12 
FD81- 59 00 48 7840 WS...8 EOR BUFF.BASE+256,Y | HI-BYTE FILLED IN 
poBee AR TC 4BR0 AND #5EC 
FD87- BD 03 FA 7870 LDA BIT.PAIR.TABLE+3, X 
FDSA- A2 0 20 7880 WS...9 LDX Biv abe y 
FD8F- BD 8C CO 7900 LDA DRV.Q6L 
FD92- B 00 48 1910 WS..10 LDA BUFF. BASE +256, Y HI-BYTE FILLED IN 
FD96- 59 00 48 1830 WS..11 EOR BUFF.BASE+256,Y | HI-BYTE FILLED IN 
FD99- Ch 3F «= 7940 :-WS.. 12 CPY INDEX.OF.LAST.BYTE 
FDOD. AA 4980 ay #sFe 
FDOE- BD 03 FA 7970 LDA BIT. PAIR. TABLE+3,X 
FDA1- A2 6 7980 WS..13 LDX #MODIFIER 
FDA3- 9D 8D CO 1390 STA DRV.Q6H,X 
FDAb- BD 8C CO 8000 LDA DRV.Q6L,X 
FDA9- B 00 48 8010 WS.. 14 EDA BUFF-BASE+256, Y HI-BYTE FILLED IN 
FDAD- 90 D2 ~—«- 8030 BCC WS...8 
FDAF- BO 00 ~—-8040 BCS . .e.3 CYCLE NOP 
FDB1- BO OD 8050.15 BCS WS..17  ...ALWAYS 
8060 #---WRITE BYTE AT BUFFER. 00--------------------------~ 
FDB3- AD 3B 00 8070 WS..16 .DA D BYTE. AT.BUFOO 4 CYCLES: LDA BYTE.AT.BUFOO 
FDBd- 9D BD CO 8080 STA re  ReH 
aoa mp OE G8 a ERE Ba 
rf = 
EDED- 88 8120 PHA 
FDBF- 68 8130 PLA 
FDCO- A6 3D  ~=8140 WS..17 LDX LAST.BYTE 
FDC2- BD 03 FA 8150 LDA BIT. PAIR. TABLE+3,X 
FDC5- A2 60 8160 WS..18 LDX #MODIFIER 
FDC7- 9D 8D CO 170 STA DRV.06H,X 
FDCA- BD 8C CO 8180 LDA DRV.Q6L,X 
Be gO ie a 
FDDO- 68 g200 PLA 
8220 #---WRITE DATA TRAILER: $DE AA EB FF---------- 
a en 
FDD3- B9 C4 F9 8250 .19 LDA DATA.TRAILER,Y 
FDD6- 20 EQ FD 8260 JSR WRITE3 
FDD9- C8 8270 INY 
Bu 68 ps BRE 
FDDE- 18 8300 CLC SIGNAL NO ERROR 
FDDF- BD 8E CO 8310 WS.RET LDA DRV.Q7L,X DRIVE TO SAFE MODE 
FDE2- BD 8C CO : 20 LDA DRV.QOL,X 
FDE5- 60 6 0 . RTS 
FDE6- 18 8350 WRITE1 CLC 
FDE7- 4 8360 WRITE2 PHA 
FDE8- 68 _ 10 PLA 
-FDE9- 9D 8D CO 8380 WRITE3 STA DRV.Q6H,X 
- ) 
FDEC- 1D 8C CO 8390 ORA DRV.Q6L,X 
FDEF- 60 8400 . RTS 
8420 PRE.NYBBLE 
FDFO- Ap 4y = 8430 LDA RWB.BUFFER § PLUG IN ADDRESS TO LOOP BELOW 
FDFe- AR 45 4 0 LDY RWB. BUFFER+1 
FDF5- 69 02 8460 ADC #2 
FDF7- 90 01 84.70 BCC . 
FDF9- C8 8) INY 
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1 STA PN...6+1 
STY PN...6+2 


SBC #356 
-2 STA PN...5+1 
STY PN...5+2 
SBC #$50 


3 STA PN... 4+1 


STY PN... 442 
BonnPACK THE LOWER TWO BITS INTO TBUF------------- 


LDY #170 
PN...4 LDA BOP F-BASE-1705¥ ADDRESS FIL 


T 

LDA BIT.RAIR. RIGHT ,X 

PN...5 LDA BUFF. BASE-84 , Y 
AND #3 


ORA BIT.PAIR.MIDDLE,X 
PN...6 LDA BUFF. BASE+2,Y 
AND #3 


ORA BIT.PAIR.LEFT,X 
EOR #$FF 
ott TBUF,X 


BNE PN...4 
#2<—DETERMINE BUFFER BOUNDARY CONDITIONS 
#--AND SETUP WRITE SECTOR ACCORDINGLY-~- 


STY INDEX.OF.LAST.BYTE 
RWB. BUFFER 

STA WS. ee 5-1 

EOR 7FF 

LDA (RWB.BUFFER),Y 


(RWB. BUFFER), Y 
AND #$FC 


LDA BIT. PAIR. TABLE+3,X 
oT STA BYTE.AT.BUFOO =0 IF BUFFER 


9 

LDA INDEX.OF.LAST.BYTE 
LDA (RWB. BUFFER ) , ¥ 
EOR (RWB. BUFFER) ,Y 

8 STA BYTE. AT. BUFO} 

LDA f WB. BUFFER) ,Y 

AND #$FC 

STA LAST. BYTE 


LED IN 


NOT SPLIT 


#---INSTALL BUFFER ADDRESSES IN WRITE.SECTOR------ 


LDY RWB. BUFFER+1 
STY WS... 5+2 
STY eee lt2 


STY WS..11+2 
STY WS.. 1442 


Page 10....Apple Assembly Line....December, 1983....Copyright (C) S-C SOFTWARE 


9270 #---INSTALL SLOT#16 IN WRITE.SECTOR------------~-~ 
FE8C- A6 3E 9280 LDX SLOT.X16 
FEQi- 8E 8B FD 9300 STX WS... 9+1 
FE97=- 8E C6 FD 9320 STX WS.. 18+1 
FEQA- 60 33 0 . RTS 
9350 WAIT. FOR.OLD.MOTOR.TO.STOP 
FEQB- 4D 59 FB 2360 EOR OLD.SLOT AME SLOT AS BEFORE? 
FESE- OA 9 (0 ASL (IGNORE DRIVE) 
FEA1- AQ 01 2390 LDA #1 LONG MOTOR. TIME 
FEA3- 8D 70 FB 9400 STA MOTOR.TIME+1 (COUNTS BACKWARDS) 
FEAb- AD 3 FB 9410 .1 LDA OLD.SLOT 
FEA9- 29 7 9420 AND 
FEAB- 9430 TAX 
FEAC- FO OF 9440 BEQ .2 -«eNO PREVIOUS MOTOR RUNNING 
FEAE- 20 FC gio JSR CHECK. IF.MOTOR. RUNNING.X 
FEB1- FO OA 9460 BEQ .2 .»eNOT RUNNING YET 
FEB3=- AQ 01 9470 LDA #1 DELAY ANOTHER 100 USECS 
FEB5- 20 85 FB 3180 JSR DELAY. 100 
FEBB- AD 70 FB 9490 LDA MOTOR. TIME+1 
FEBB- DO E9 9500 BNE .1 KEEP WAITING 
FEBD- 60 3210 -2 RTS 
FEBE- $330 . -BS $FF9B-# <<<<EMPTY SPACE>>>> 
9550 IRQ 
FFOB- 48 3200 PHA SAVE A-REG 
FFOC- A5 4 24° LDA $45 SAVE LOC $45 
FF9E- 8D 56 BF 9580 STA SAVE.LOC45 
FFA1- 68 9590 PLA SAVE A-REG AT LOC $45 
FFA2=- 85 45 3600 STA $45 
FFA4- 6 610 PLA GET STATUS BEFORE IRQ 
FFA5= 48 9620 PHA 
FFA6- 29 10 9630 AND #$10 SEE IF "BRK" 
FFA8~ DO 18 36 0 BNE «YES, LET MONITOR DO IT 
FFAA~ 00 DO 9650 LDA }d000 SAVE $b000 BANK ID 
FFAD- 49 D8 9660 EOR #$D8 
FFAF- FO 02 9670 BEQ . 
FFB1- AQ FF 9680 LDA #$FF 
FFB3- 8D 8D BF 9690 .1 STA INTBANKID 
FFB6- 8D 57 BF 9700 STA SAVE.D000 
FFB9- AQ BF 9710 LDA #$BF PUSH FAKE "RTI" VECTOR WITH 
FFBB- 4 3720 PHA IRQ DISABLED 
FFBC- AQ 50 730 LDA #$50 AND SET TO RETURN TO $BF50 
FFBE- 4 9740 PHA 
FFBF- Ag 04 9750 LDA #4 
FFC1=- 4 3160 PHA 
FFC2- AQ FA 170 -2 LDA #$FA PUSH "RTS" VECTOR FOR MONITOR 
FFCH- 4 9780 PHA 
FFC5= AQ 41 9790 LDA #$41 
FFC7T=- 4 9800 PHA 
9810 CALL.MONITOR 
FFC8- 8D 82 CO gb20 . STA $C082 SWITCH TO MOTHERBOARD 
aBho RESET 
FFCB- AD D7 FF 9850 LDA RESET. VECTOR+1 
FFCE- 48 9860 PHA PUSH "RTS" VECTOR FOR MONITOR 
FFCF- AD D6 FF 9870 LDA RESET.VECTOR 
FFD2- 48 98 PHA 
FFD3—- 4C C8 FF 9690 . JMP CALL.MONITOR 
9910 RESET. VECTOR 
FFD6~ 61 FA $350 -DA $FA61 MON .RESET-1 
9 to INT.SPLICE - 
FFD8- 8D 88 BF 9950 STA INTAREG 
FFDB- AD 6 BF 360 LDA AVE. LOCKS 
FFDE- 85 45 io STA $45 
FFEO- AD 8B CO 99 LDA $CO08B SWITCH TO MAIN $D000 BANK 
FFE3- AD 57 BF 9990 LDA SAVE.D000 
FFE6- 4C D3 BF 10000 . JMP IRQXIT.3 
FFE9- 10020 . -BS $FFFA-# <<<<<EMPTY SPACE>>>>> 
FFFA- FB 0 10040 V.NMI -DA $03FB 
FFFC- CB F 10050 V.RESET ~DA ET 
FFFE- 9B FF 10060 V.IRQ -DA IRQ 
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More Assembly Listing into Text Files...........Tracy L. Shafer 
MacDill AFB, FL 


In the October '83 issue of AAL, Robert F. O'Brien presented a 
way to create a text file containing the assembly listing of a 
large program. (See also “Assembly Listing Into a Text File”, 
by Bill Morgan, July ‘83 AAL.) Actually, he created several 
text files; one for each .IN directive in the root file. You 
can't put the whole listing into one text file by usSing one .TF 
directive because of the way the .IN directive affects the DOS 
I/O hooks. 


Robert's method for obtaining assembly listing text files is 
good, but I found a different way:to create the text files of 
assembly listings that doesn't involve creating separate 
SYMBOLS sections, deleting duplicate labels, and putting up 
with “EXTRA DEFINITIONS ERROR" messages. It's a fairly simple 
approach and hinges on the fact that the problem presented by 
the .IN directive affects the source file containing the .IN, 
but not the source file to which the .IN refers. Instead of 
putting one .TF directive in the root file, put a .TF in each 
source file pointed to by a .IN directive. 


For example: 
ROOT FILE 
1000 DU 


1010 ~IN PART 1 
1020 eIN PART 2 


1030 ED 

PART 1 

1000 eTF LISTING 1 

1010 (source for part 1) 
PART 2 

1000 -TF LISTING 2 

1010 (source for part 2) 


From here on, follow Bill Morgan's original instructions. What 
follows is a summary of those instructions. 


After deleting all other .TF directives, or turning them into 
comments by inserting "*" at the beginning of the line, typing 
ASM will create two binary files named LISTING 1 and LISTING 2. 
Each of these contains the assembly listing of PART 1 and PART 
2 respectively, in text form. These binary files will not have 
starting address and length in the first four bytes. DO NOT 
attempt to BLOAD these files. You could really clobber DOS. To 
obtain true text files, make the following patch to the S-C 
Assembler before you assemble the program: 


$1000 versions: $29DF:0 (original value is 04) 
$D000 versions: $C083 C083 EAF9:0 N C083 
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pnaeowmkteun#o\a»’®esewD sem G 
CUasTtrom CHARACTER sexs 


One of the features “hidden’ in many printers available today 

is their ability to accept user-defined character sets. With the 
proper software, these custom characters are ‘downloaded’ from 
your Apple II computer to the printer in a fraction of a second. 
Once the printer has “’learned’ these new characters, they will 
be remembered until the printer is turned off. 


Atter the downloading operation, you can use your printer with 
virtually any word processor. Just think of the possibilities! 
There’s nothing like having your own CUSTOM CHARACTERS to help 
convey the message. And you still have access to those built-in 
fonts as well! Here’s a quick look at some possible variations: 


BUILT-IN CUSTOM 
10CPI: AaBbCcDdEeFfGgHh!l i Jj Kk AabbCcDdtef FO GH 16 3 SKK 
12CPI: AaBbCcDdEeFfGgHhh!l i Jj Kk AaBbCcDd€ef FEQHhIi IS jkK 
i7CPI: AaBbCcDdEeF fGgHhI i JjKk RabeCcBdtef FCodh 1 i ) stk 
SCPI: mabbpoccDpdEee FF AaBbECa DAE ef F 
6CPI: AaBbBbcCccDdEeF fF AaBbCcDdt ef F 
SCPI: AaBbCcDdEeF f AaBbCcDd€eF Ff 


And let’s not forget Enhanced and Underined printing as well... 


AaBbCcDdEeF fGgHh!I i Jj Kk AabbCcDd€ef FEQKhI1 3 JKK 
AaBbCcOdEeFfGgHh! i Jj KK AaBbCcid€ef FGQHEIG I JKK 


The Font Downloader & Character Editor software package has 

been developed by RAK-WARE to help you unleash the power of your 
printer. The basic package includes the downloading software with 
4 fonts to get you going. Also included is a character editor so 
that you can turn your creativity loose. Use it to generate unique 
character fonts, patterns, symbols and graphics. A detailed user’s 
guide is provided cn the program diskette. 


SYSTEM REQUIREMENTS: 

* APPLE II, APPLE II Plus, APPLE //e or lookalike with 48K RAM 

* ‘DUMB’ Parallel Printer Interface Board (like Apple’s Parallel 
Printer Interface, TYMAC’s PPC-100 or equivalent) 


The Font Downloader & Editor package is only $39.95 and is currently 
available for either the Apple Dot Matrix Printer or C.Itoh SS10AP 
(specify printer). Epson FX-80 and OkiData versions coming soon. 
Enclose payment with order to avoid $3.00 handling & postage charge. 


rP RF H —- WAR KR E€ 
41 Ralph Road West Orange New Jersey 07052 


Say You Saw It In APPLE ASSEMBLY LINE! 
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After the patch is made, assemble the program and restore the 
Original value to $29DF (SEAF9). 


For really large programs, it could get very tedious adding a 
-TF directive to each sub-file to obtain a text file listing 
and then deleting those .TF directives to prevent messing up 
the object file the next time the program is assembled. 
Fortunately, the S-C Macro Assembler's conditional assembly 
feature makes our work a lot easier. By placing an equated 
flag in the root file and surrounding each .TF with .DO and 
~FIN, we only have to change one line to set up our program for 
text file output or object file creation. For example: 


ROOT FILE 

1000 LSTOUT .EQ 0 TO ASSEMBLE OBJECT 
1010 * 1 TO OUTPUT TEXT FILES 
1020 ~-DO LSTOUT 

1040 DU 

1050 - ELSE 

1060 eTF OBJECT FILE 
1070 FIN 

1080 eIN PART 1 

1090 eIN PART 2 

1100 ~-DO LSTOUT 

1110 e ED 

1120 -FIN 

PART ] 

1000 eDO LSTOUT 

1010 eTF LISTING 1 

1020 -FIN 

1030 (source for part 1) 
PART 2 

1000 ~DO LSTOUT 

1010 eTF LISTING 2 

1020 FIN 

1030 (source for part 2) 


Don't forget to patch $29DF (SEAF9 for the language card 
version) with 0 to output true text files and back to 4 create 
object files. The last thing to remember is to use .LIST ON 
during the assembly. You won't write any text files if the 
assembler isn't producing a listing. 


Note on Aztec Coccccccccccccc ccc cc cc cc cc ccccccccceeeBill Mor gan 


I just talked to the people at Manx Software about the ProDOSs 
version of their C compiler, and this time they assured me that 
owners of the current Apple DOS version will be able to 
purchase the ProDOS version at a reduced upgrade price. That 
is enough to tip the balance in favor of buying the compiler 
right now, so I have ordered some. List price is $199: we'll 
have them for $180 + shipping. 
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Generalized GOTO and GOSUB...ccccceccccveceee BOD Sander-Cederlof 


Tim Mowchanuk, a lecturer at Brisbane College in Australia, 
sent the following suggestion: 


“How can I implement a named GOTO or GOSUB routine? There 
are numerous routines that implement computed GOTO/GOSUB, 
but I consider that a futile exercise. Computed 
GOTO/GOSUB mess up renumbering utilities, and violate 
modern trends toward structured programming. 


"What I really want is something that will handle BASIC 
like 


100 & GOSUB NAMES 


where NAMES holds the name of a subroutine. I envision 
subroutine names being defined by a special REM statement 
of the form 


200 REM “SUBROUTINE NAME" 


The &GOSUB or &GOTO processor can search through the 
program for a line beginning with a REM token. If the 
first non-blank after the REM token is a quotation mark, 
the processor can compare the characters to the string 
value. If there is an exact match, the line containing 
the REM is the target for the &GOTO or &GOSUB." 


The problem sounded just the right size for an interesting AAL 
article, so I started trying to write some code. 


I published an &GOSUB routine back in April 1981 of the type 
that Tim thinks futile. The following program combines the two 
“futile” computed &GOSUB and &GOTO routines with two new ones 
that allow the computed value to be a string expression. If 
the expression after &GOTO or &GOSUB is numeric, the processor 
will search for a matching line number. If the result is a 
string, the processor will search for a REM label as Tim 
described above. 


Only REM's at the beginning of a numbered line will be 
considered as labels. The label must be included in quotation 
marks. Spaces are OK between the word REM and the first 
quotation mark. Anything after the second quotation mark will 
be ignored. 


You can now write a menu program that uses the actual command 
word as the name of a subroutine, and cease worrying about line 
numbers. The accompanying Applesoft program is an example of 
just such a technique. 


100 PRINT CHR$ (4)"BLOAD B.LABELLED GO'S": CALL 768 

1OI6 pata SEND, RECEIVE, EDIT,LOAD,SAVE,EXIT,. 

1020 I = I + 1: READ A$(I): IF A$(I) < > "." THEN 1020 
1030 N=I-1 

1100 INPUT C$:I = 0 

1110 I = I + 1: IF C$ = A$(I) THEN & GOSUB C$: GOTO 1100 
1120 IF I < N THEN 1110 

1130 PRINT "NO SUCH COMMAND": GOTO 1100 
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2000 REM "SEND" 

2010 PRINT "SEND NOT YET IMPLEMENTED": RETURN 

2500 REM "RECEIVE" 

2510 PRINT "RECEIVE IS NOT READY": RETURN 

3000 REM "EDIT" 

3010 PRINT "MAYBE YOU CAN EDIT LATER": RETURN 
REM "LOAD® 


500 
310 PRINT "LOAD WHAT, WHERE, HOW?": RETURN 
000 REM "SAVE® 

1249 PRINT NOAVE WHAT, WHERE, HOW": RETURN 
4510 PRINT *ARI THAT I CAN DO!": POP ; END 


1900 SOAVE S.LABELLED GO'S 
1020 # & GOTO <STR EXP> 
1030 sd & GOSUB<STR EXP> 
1040 @ REM *°<LABEL>*® 
V0 ed ; 
10 o . AS SUGGESTED BY TIM MOWCHANUK 
0011- 1060 AS.VALTYP .EQ $11 
0052- 1090 AS.TEMPPT .EQ $52,53 
005E- 1100 INDEX.REM .EQ $5E 
005F- 1110 INDEX.GO .EQ $5F 
0067- 1120 PRGBOT -EQ $67,68 
0075- 1130 AS.CURLIN .EQ $75,76 
009B- 1140 PNTR EQ $9B, 9C 
009D- 1150 STRLEN -EQ $9D 
009E- 1160 STRADR -EQ $9E, 9F 
OOA0= 1170 VPNT ~-EQ $A0,A1 
0OB8- 1199 ® TXTPTR -EQ $B8,B9 
OOAB- 1200 TKN.GOTO -EQ $AB 
OOBO- 1210 TKN.GOSUB .EQ $BO 
00OB2- \ee0 TKN. REM -EQ $B2 
03F5- 1340 AMPERSAND.VECTOR .EQ $3F5 ... 3F7 
OOBI- 1360 AS.CHRGET .EQ $00B1 
OOBT- 127° AS.CHRGOT .EQ $00B 
D3D6= 1280 AS.MEMCHK .EQ $D3D 
D7D2= 1290 AS.NEWSTT .EQ $D7D2 
DO4I1- 1396 AS .GOTO1 ~-EQ $D941 
D95E- 1310 AS.GOTO.3 .EQ $D95E 
D97C- 1320 AS.UNDERR .EQ $D97C 
DD7B- 1330 AS.FRMEVL .EQ $DD7B 
DEC9- 13 O AS.SYNERR .EQ DEC 
E604- 1350 AS.FRETMP .EQ $E60 
E752=- 1300 AS .GETADR -EQ $E752 
1 bo ~OR $3 
; 30 ® T LABELLED GO'S 
0300- AQ OB 1410 SETUP LDA #LABELLED.GOTO.AND.GOSUB 
0302- 8D F6 03 1420 STA AMPERSAND. VECTOR+1 
0305=- AQ 0 130 LDA /LABELLED.GOTO.AND.GOSUB 
0307- 8D F7 03 1440 STA AMPERSAND. VECTOR+2 
O30A- 60 M20 . RTS 
170 LABELLED. Gore. AND. GOSUB 
030B- 20 B7 00 1480 JSR AS.CHRGOT 
ge GR Ga toro 
0312- C9 BO 1510 CMP #TKN. GOSUB 
0314- FO 03 1520 BEQ . -«eGOOD SYNTAX SO FAR 
0316= 4C C9 DE 1330 1 JMP is. SYNERR 
1540 #---SETUP GOSUB RETURN DATA-----~- 
0319=- AQ 03 1320 02 LDA #3 
031B- 20 Dod D3 1560 JSR AS.MEMCHK 
2 So rn eels 
gai wg Be eg EB ater 
0328 A5 76 1616 Lp AS .CURLIN+1 
032 - ig 75 1630 LDA AS.CURLIN 
0329- 4 1640 PHA 
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032A- Ag BO  —«-: 1650 LDA #TKN.GOSUB 
032C- 4 1660 PHA 
032D- DO 02 1670 E .4 .. ALWAYS 
1680 #---SETUP FOR GOTO--------------- 
032F- 68 1690 .3 PLA POP RETURN TO "NEWSTT® 
0330- 68 1700 PLA 
1710 #---FIND LABEL AFTER TOKEN------- 
0331- 20 B1 00 1720 .4 JSR AS.CHRGET 
0334- FO EO 1730 BEQ .1 
0336- 20 7B DD 1740 JSR AS.FRMEVL EVALUATE EXPRESSION 
0339- 24 11 1750 BIT AS.VALTYP $00 IF NUMERIC, $FF IF STRING 
1770 #.--NUMERIC EXPRESSION----------- 
033D- 20 52 EI 1780 JSR AS.GETADR CONVERT TO INTEGER 
0340- 20 41 D9 1790 JSR AS.GOTO1 
0343- 4c D2 D7 1800 JMP AS.NEWSTT 
1810 #---FREE ANY TEMP STRINGS-------- 
0346 - AS 53 1820 45 «LDA AS. TEMPPT+1 
0348- Ad 0 1 30 LDY #0 
O34A- 20 O4 E6 1840 JSR AS.FRETMP 
O34D- A5 52. ~=—- 1850 5 LDA AS. TEMPPT 
O34F~ C9 56 1860 CMP #$56 EMPTY? 
0351- BO F3 1 70 BCS .45 .NO, FREE A STRING 
1880 ®---COPY STRING LENGTH/ADDRESS--- 
0353- AO 02 ~=—-:1890 LDY #2 
0355- B1 AO «1900 .55 ~—SCiLDA: «(VPNT),Y 
0357- 29 9D 00 1910 STA STRLEN;Y 
035A- 1920 
035B- 10 F8 1930 BPL .55 
1940 *---SEARCH PROGRAM FOR LABEL----- 
035D- A5 68 1950 PRGBOT+1 POINT TO BEGINNING 
035F- A6 67 1960 Dx PRGBOT OF PROGRAM 
1970 #---LOOK AT NEXT LINE--------~~-- 
0361- 8 9c 19 0 .6 STA PNTR+1 UPDATE PNTR TO NEXT LINE 
036 3- B = 1990 STX PNTR 
0365- AO 01 = 2000 LDY #1 HI-BYTE OF FWD PNTR 
0367- B1 9B 2010 LDA (PNTR),Y 
0369- FO 43. += 2020 BEQ .11 ..END OF PROGRAM 
2030 #=--CHECK FOR 'REM "t-----.-.---~ 
036B- AO 04 2040 LDY y ¢i 
036D- B1 9B 2050 LDA (PNTR),Y 
O036F- C9 B22 CMP #TKN. Rin 
0371- DO 31 2070 BNE .10 ..» NOT REM STATEMENT 
037 - C8 2080 .7 INY NEXT BYTE OF LINE 
0374- B1 9B 2090 LDA (PNTR),Y 
0376- C9 20 += 2100 CMP #! IGNORE BLANKS BEFORE " 
0378- FO F9 2110 BEQ .7 
O37A- C9 22 = 2120 CMP #' a " YET? 
037C- DO 26 = 2130 BNE .10 ...NO, NOT A LABEL 
21h0 #---COMPARE LABEL---------------~ 
O37E- 84 5E = 2150 STY INDEX. REM 
0380- AQ FF 2160 LDA #-1 
0382- 85 5F 2170 STA INDEX.GO 
O384- E6 5E 2180 .8 INC INDEX. REM 
0386- AX 5E = 2190 LDY TNDEX; REM 
0388- B1 9B 2200 LDA (PNTR), 
O38A- FO 8A =: 2210 BEQ .1 .» EARLY END OF LABEL 
O38C- E6 5F 2220 INC INDEX.GO 
O38E- AN 5F =: 2230 LDY INDEX.GO 
0390- C9 22 = 22h CM he LEGAL END OF LABEL? 
0392- FO 06 2250 BEQ . 
0394 D1 9E 2260 CMP (Srrapa), ¢ 
0396- FO FC 2270 BEQ .» KEEP MATCHING 
0398- DO OA =—_-« 2280 BNE .10 DOESN'T MATCH 
O039A- Ch 9D 2290 .9 CPY STRLEN CORRECT LENGTH? 
039C- DO 06 = 2300 BNE .10 ..»NO, KEEP SEARCHING 
2310 #---FOUND LABEL, SO GO TO IT----- 
039E- 20 5E D9 2320 JSR AS.GOTO.3 
O3A1- 4c D2 D7 2330 JMP AS.NEWSTT 
230 #---DOESN'T MATCH, TRY NEXT LINE- 
O3A%- AO 00 =: 2350 .10-~—SCsLDY #0 GET FORWARD POINTER 
O3A6- B1 9B  ~—- 2360 LDA (PNTR),Y LO-BYTE 
O3A8- AA 2370 TAX 
03A9- C8 2380 INY HI-BYTE 
OZ3AA- B1 9B = 2390 LDA (PNTR),Y 
OZAC- DO B3—Ss.- 2400 BNE . .NOT END OF PROGRAM YET 
2410 #---END OF PROGRAM, UNDEF LBL---- 
O3AE- 4C 7C D9 2420.11 JMP AS.UNDERR 


Apple Assembly Line... 


~December, 1983... 


-Copyright (C) S-C SOFTWARE... 


~Page 17 


APPLIED E 


THE BEST PERIPHERALS 


The TIMEMASTER 


Designed in 1983 using I.C. technologies that simply did not exist 
when most other Apple clocks were designed. 


Just plug it in and your programs can read the year, month, date, day, 


and time to 1 millisecond! The only clock with both year and ms. 
Powerful 2K ROM driver — No clock could be easier to use. 

Full emulation of most other clocks, including Mountain Hardware’s 
Appleclock (but you'll like the TIMEMASTER mode better). 

Basic, Machine Code, CP/M and Pascal software on 2 disks! 

Eight software controlled interrupts so you can execute two programs 
at the same time. (Many examples are included) 

On board timer lets you time any interval up to 48 days long down to 
the nearest millisecond. 


The TIMEMASTER includes 2 disks with some really fantastic time 
oriented programs (over 25) plus a DOS dater so it will autornatically add 
the date when disk files are created or modified. This disk is over a 
$200.00 value alone — we give the software others sell. All software 
packages for business, data base management and communications are 
made to read the TIMEMASTER. 


If you want the most powerful and the easiest to use clock for yourApple, 


you want a TIMEMASTER. PRICE $129.00 


FOR 


EERING 


HE BEST COMPUTER 


Super Music Synthesizer 


T 


7 


@ Complete 16 voice music synthesizer on one card. Just plug it into your 
Apple, connect the audio cable (supplied) to your stereo, boot the 
disk supplied and you are ready to input and play songs. 

It’s easy to program music with our compose software. You will start 
right away at inputting your favorite songs. The Hi-Res screen shows 
what you have entered in standard sheet music format. 

Now with new improved software for the easiest and fastest music 
input system available anywhere. 

We give you lots of software. In addition to Compose and Play 
programs, 2 disks are filled with over 30 songs ready to play. 

Easy to program in Basic to generate complex sound effects. Now your 
games can have explosions, phaser zaps, train whistles, death cries. 
You name it, this card can do it. 

Four white noise generators which are great for sound effects. 

Plays music in true stereo as well as true discrete quadraphonic. 
Full control of attack, volume, decay, sustain and release. 

Will play songs written for ALF synthesizer (ALF software will not take 
advantage of all the features of this board. Their software sounds the 
same in our synthesizer.) 

@ Automatic shutoff on power-up or if reset is pushed. 


@ Many many more features. PRICE $159.00 


Z-80 PLUS! 


@ TOTALLY compatible with ALL CP/M software. 

@ The only Z-80 card with a special 2K “CP/M detector’ chip. 

@ Fully compatible with microsoft disks (no pre-boot required). 

@ All new 1983 design incorporates the latest in |.C. technologies. 


@ Red’CP/M WORKING" LED indicator, the Z-80 Plus does not interfere 
with non-CP/M programs. 

@ An on-card PROM eliminates many !.C.’s for a cooler, less power 
consuming board. (We use the Z-80A at a fast 4MHZ) 

@ Does FVERYTHING the other Z-80 boards do, plus Z-80 interrupts. 

Don’t confuse the Z-80 Plus with crude copies of the microsoft card. The 

Z-80 Plus employs a much more sophisticated and reliable design. With 

the Z-80 Plus you can access the largest body of software in existence. 


Two computers in one and the advantages of both, all at an unbelievably 
low price. 


PRICE $139.00 
COMING SOON: The Z-80 Plus for the Apple Ili 


Viewmaster 80 


There used to be about a dozen 80 column cards for the Apple, 
now there’s only ONE. 


@ TOTALLY Videx Compatible 
80 characters by 24 lines, with a sharp 7x9 dot matrix 
On-board 40/80 soft video switch with manual 40 column override 
Fully compatible with ALL Apple languages and software — there are 
NO exceptions 
Low power consumption through the use of CMOS devices 
All connections on the card are made with standard video connectors, 
no cables are soldered to the board 
All new 1983 design (using a new Microprocessor based C.R.T. 
controller) 


jUST COMPARE! 


Nee RES 
SUPPORT 


YES 
YES 
NO 
‘ES 
YES 
YES 


raut HOILTIN 
SOP TSWaTo ns 


YES 
NO 
NO 
YES 
NO 
YES 


nw OT 
MATRIN 


YES 
NO 
YES 
YES 
NO 
YES 


ee OC Th TO CRC 
VES 
YES 
YES 
NO 
YES 
YES 


4 ‘SP ALinit 
YES 
NO 
YES 
YES 
NO 
YES 


VIEWMASTER 
SUP’RTERM 
WIZARD80 
VISION80 
OMNIVISION 
VIEWMAX80 
SMARTERM 360 YES YES YES NO NO YES NO 
VIDEOTERM 345 NO NO NO YES YES NO YES 
The VIEWMASTER 80 works with all 80 column applications including CP/M, Pascal, 
WordStar, Format Il, Easywriter, Apple Writer JI, Viscalc, and many others. The 
VIEWMASTER 80 is THE MOST compatible 80 column card you can buy at ANY price! 


PRICE $169.00 


169 
375 
245 
375 
295 
219 


YES 
NO 
NO 
NO 
NO 
NO 


YES 
YES 
YES 
NO 
YES 
NO 


MemoryMaster Ile 128K RAM Card 


Expands your Apple Ile to 192K memory 

Provides an 80 column text display 

Compatible with alt Apple Ile 80 column and extended 80 column 
card software (Same physical size as Apple’s 64K card) 

Available in 64K and 128K configurations 

Bank select LED’s for each 64K bank 

Permits your Ile to use the new double high resolution graphics 
Automatically expands Visicalc to 95K storage in 80 columns! The 64K 
configuration is all that’s needed, 128K can take you even higher. 


@ Complete documentation included, we show you how to use all 128K. 
!f you already have Apple’s 64K card, justorder the MEMORYMASTER with 
64K and use the 64K from yourold board to give youa full 128K. (The board 

is fully socketed so you simply plug in more chips.) 


MemoryMaster with 128K 
Upgradeable MemoryMaster with 64K 
Non-Upgradeable MemoryMaster with 64K 


$249 
$169 
$149 


Our boards are far superior to most of the consumer electronics made today. All I.C.’s are in high quality sockets with mil-spec. components used throughout P.C. boards are 

glass-epoxy with gold contacts. Made in America to be the best in the world. All products work in APPLE Ile, II, H+ and Franklin (except MemoryMasten). 

Applied Engineering also manufactures a full line of data acquisition and control products for the Apple; A/D converters and digital 1/0 cards, etc. Please call for more 

information. All our products are fully tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle 

THREE YEAR WARRANTY: Send Check or Money Order to: 

APPLIED ENGINEERING 
P.O. Box 470301 


Dallas, TX 75247 


Call (214) 492-2027 
7a.m. to 11p.m. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 


Alt Orders Shipped Same Day. Texas Residents Add 5% Sales 
Tax. Add $10.00 If Outside U.S.A. Dealer inquiries Welcome. 
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Timemaster II from Applied Engineering.....Bob Sander-Cederlof 


It may come aS a Surprise (it did to me), but there are 
apparently now only three calendar/clocks still on the market 
for the Apple II, II Plus, //e. The others, and there were a 
lot of them, seemed to have dropped off the map. And even one 
of the three (Mountain Computer) does not advertise anywhere I 
can find. 


Another Surprise: the most expensive clock has the fewest 
features, and the least expensive has the most features. 


Mountain Computer Apple Clock 


$280 in current catalog listing; most recent ad I could 
find was in Jan 1980 Byte, at $199. Features below are 
guessed at from ad and conversations with Dan Pote. Works 
with BASIC only, does not include any DOS Dater or ProDOS 


support. 


Gives month, day of month, hour, minute, second, 
millisecond 


Interrupt available: Second, Millisecond 
Thunderware Thunderclock Plus 


Gives month, day of month, day of week, hour, minute, 
second. 


$150 with BASIC software for DOS or ProDOS 
$ 29 extra for Pascal software 
$ 29 extra for DOS-DATER/DEMO disk 


Interrupts available: 64, 256, or 2048 times per second 
Applied Engineering Timemaster 


$129 includes Applesoft support for DOS or ProDOS 
includes Pascal and CP/M support 
includes DOS Dater 


Gives year, month, day of month, day of week, hour, 
Minute, second 


Interrupts available: Millisecond, Second, Minute, Hour. 
Switchable to either NMI or IRQ interrupt line. 


For some reason they have not chosen to explain, the wizards at 
Apple who created ProDOS decided to “wire in“ support for the 
Thunderclock (and ONLY Thunderclock). A system call reads the 
time and date from Thunderclock, calculates the year from the 
given information, and stores year-month-day-hour-minute in a 
packed format at SBF90...BF93. ProDOS automatically records 
time/date of creation and time/date of last modification. 
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In order to get the year with these dates, ProDOS goes through 
a calculation to derive year from given day of month, month, 


and day of week information. 


The calculation involves 


remaindering and table lookup...but it only works from 1982 


through 1987. 


I suppose by 1988 they will have generated a new 


‘version which works beyond, or else we won't care anymore, 
Better yet, by 1988 maybe they will have driver-ized the clock 
Support so we can use Dan's card directly. 


Dan Pote sent me a Timemaster to play with, in hopes that I 
would figure out how to make it look like a Thunderclock to 


ProDOS. 
compatible with ProDOS. 


I did, so if you buy one now it will be completely 
You select by DIP Switch which page of 


the onboard EPROM will be mapped into the $CNO0O space (where N 


is slot 1-7). 


One setting selects the ProDOS section, and the 


others select various versions designed for use with DOS and 


Applesoft. 


You can talk to Dan's card directly, as well as through the 


EPROM. 


If you don't like the way his firmware works 


(unlikely), you can either ignore it or change it. 


(By the way.... 


Call A.P.P.L.E., a Club/magazine with a 


penchant for value and quality, has chosen to offer another one 
of Applied Engineering's boards in its latest catalog: the 


Viewmaster 80. 
retail.) 


Their price is $140, which is 20% below normal 


ES-CAPE will set your creativity free! 


ES-CAPE will help you develop, enter, and modify 
Applesoft programs. Even if you are only copying a 
program from a magazine, ES-CAPE will help you doit 
three times faster! 


Visualize this: by pressing just a key or two, you can... 
¢ See the disk catalog, select a program, and load it into 
* memory. 
¢ Browse through the program a screen or a line at a 
time. 
¢ Edit lines using powerful commands like the word 
processors have: insert, delete, truncate, overtype, 
scan to beginning or end or to a particular character, 
and more. 
¢ See the values of the variables used by your Apple- 
soft program as it ran. 
¢ Save the modified program. ES-CAPE remembers the 
file name for you! 


ES-CAPE is easy to learn and use! 

¢ Well-written User Manual guides you through the 
learning process. 

¢ Handy Quick Reference Card reminds you of all fea- 
tures and commands. 

¢ Built-in help screens and menus refresh your mem- 
ory. You don’t have to memorize anything! 

¢ The disk is NOT protected! You can put ES-CAPE on 
every disk you own, and make as many backup copie 
as you need. 


ES-CAPE will speed up and simplify your Applesoft 
programming! 
¢ Choose a starting value and step size for automatic 
line numbering. 
¢ Swiftly find all references to a given variable, line 
number, or any other sequence of characters. 
Quickly and automatically scan your program for any 
sequence of characters and replace them with a new 
spelling. 
Enter commonly used words or phrases with a single 
keystroke. A full set of pre-defined macros is pro- 
vided, which you may modify as you wish. 
Display a DOS Command Menu with a single key- 
stroke. A second keystroke selects CATALOG, 
LOAD, SAVE, and other common DOS commands. 
You can easily manage a disk-full of programs! 


ES-CAPE is available now at many fine computer 
stores, or directly from S-C Software Corporation. The 
price is only $60. 


S-C SOFTWARE CORPORATION 
2331 Gus Thomasson, Suite 125 
Dallas, TX 75228 (214) 324-2050 


Professional Apple Software Since 1978 
Visa, MasterCard, American Express, COO accepted. 
Apple a a \recemark of Appie Compvier inc. 
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Finding Trouble in a Big RAM Card..........Bob Sander-Cederlof 


Last night (Monday, Nov 28th) I took home an Apple to do some 
Spreadsheet work. I took home the most portable one, but first 
swapped RAM cards. I took the STB-128 out of my oldest Apple 
and put it into the Apple II Plus with the fewest attachments. 


When I plugged it in at home and booted the spreadsheet 
program, all appeared to be well. But it wasn't. I loaded in 
a model, and during the re-calculation the spreadsheet program 
hit a BRK opcode and died. I pressed RESET and looked at the 
partially re-calculated sheet: it was sprinkled with nonsense 
characters, and the keyboard was locked up. I played with 
various combinations for an hour or so, including other 
programs which use the RAM card. Everything pointed to there 
being a bad bit somewhere in the card. 


Of course the RAM card test program was back at the office. I 
decided to write another one rather than face the two mile 
round trip. 


The 128K space on the STB-128 is divided into 8 banks. You 
select a bank by storing a bank number (0-7) at any address in 
the $C080+slot*l6 space which has bit 2 = 1. For slot 0, that 
means store in $C080, $C081, $C082, $C083, $C088, $C089, SCO8A, 
or $CO8B. The card has three green LEDS on top which show 
which bank is currently selected. 


Each 16K bank is further divided to fit into the 12K address 
Space between $D000 and SFFFF. The softswitch controlled by 
bit 3 in the $C08x address selects which of two 4K banks will 
be enabled at $DOOQO-DFFF. The other 8K always sits at 
SEQOO-FFFF. A red LED signals which $D000 bank is selected. 


The low-order two bits of the $C0O8x address control the mode of 
the RAM card. Accessing $C080 or $C088 write protects the 
card, and read enables it. This means the SDO0O0-FFFF 
references the RAM card rather than the motherboard ROM. 
Accessing $C082 or SCO8A write protects the RAM card and 
disables reading it; in other words, it switches on the 
motherboard ROM. 


$C081 or $C089 also turn on the mother board ROM for reading, 
but if you access one of these twice in a row it will write 
enable the RAM card. In this mode reads reference the 
motherboard ROM, but writes write into the RAM card. This mode 
is used when loading the RAM card so that monitor and Applesoft 
routines which are in motherboard ROM can be used for the 
loading process. 


Accessing $C083 or $C08B once read enables the STB-128 card and 
write protects it. A second access write enables the card. 
This is the mode we use for a memory test. 

Thinking about how to test such a card, I wrote down the 
following “flow chart": 
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For Bank = 0 to 7 
Store Bank in $C083 
Access $C083 again to write enable 
Test SDOOO-DFFF 
Access S$C0O8B twice 
Test SDOOO-FFFF 
Next Bank 


I broke the actual testing of a range of memory into four 
parts. First I stored zeroes into every location, and checked 
to be sure I read zeroes back. Then I did the same with SFF. 
Then, $55. Then, SAA. This is certainly not an exhaustive 
test, but I hoped it would be sufficient. 


The tricky part was informing myself of the locations and 
values involved of any memory errors found during the test. I 
could not conveniently use the monitor subroutines to write 
addresses and values on the screen, because the monitor only 
existed in the motherboard ROM and it was switched off! So, I 
wrote a quick and dirty display routine. 


The routine for display in the listing below is not quite so 
“quick and dirty“. The program starts by clearing the screen 
using the monitor HOME subroutine at SFC58. Then it switches 
to the RAM card and runs the test. The program pokes test 
failure data directly to the screen. I direct the data for 
each of the 8 banks to a different line. When a failure 
occurs, I print the address, the value that should have been 
there, the actual value found, and the exclusive-or of the two 
values. The exclusive-or shows me which bit or bits was 
incorrect. 


After running the test it was obvious that the least 
Significant bit in banks 5 and 6 was not working. When it 
should be zero it wasS sometimes one, and vice versa. 


I did not know which chip on the STB-128 card belonged to which 
bit slice or which bank, so I guessed. I was lucky, and 
guessed right the first time. I pulled out the chip I thought 
might be the bad one, and re-ran the test. This time the test 
indicated the least significant bit of banks 4-7 was missing. 
(It happened to be the chip in the lower-left corner when 
looking at the face of the card.) 


I put the chip back in, hoping that it would miraculously heal 
itself. Then I looked at the back of the board to see if 
anything looked suspicious there. Sure enough! STB did not 
trim off the excess length of the socket pins after soldering 
the board. One of those long pins had bent over and was 
possibly shorted to another, on the lower left socket. I 
straightened the pin and re-ran the test. Voila! It passed! 


After I finished patting myself on the back I tried to run the 
Spreadsheet again. It still failed! This morning I put the 
cards back in their usual homes, and everything works fine. 


Tuesday Afternoon....Lo and behold, the card is still bad. I 
found the STB Systems diskette, and ran their RAM test program, 
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It identified the same chip as being bad. But after running 
the test for several hours, the errors stopped. Obviously the 
chip's problems are intermittent. 


Wednesday Morning....The chip is still giving errors. I called 
STB and they said to bring the board by. Wednesday 
afternoon....STB replaced the chip, and all is well. 


1990 #SAVE S.TEST STB-128 
1020 * TEST STB-128 
1030 #2 
0000- 1040 YSAVE .EQ 0 
0001- 1050 LIMIT .EQ 1 
0002- 1060 ADDR .EQ 2,3 
O00k- 1070 BANK .EQ 4 
0005- 1080 BYTE .EQ 
0006- 1090 SCREEN .EQ 6,7 
co80- 1110 SELECT .EQ $C080 
0800- 20 OD 08 1130 TTTT JSR TEST 
0803 20 OD 08 1140 JSR TEST 
0806- 20 OD 08 1150 JSR TEST 
0809- 20 OD 08 1160 JSR TEST 
080C- 60 1170 RTS 
1180 # en aw ase ee OE EEE DORE Esa aenaaeane 
O80D- A9 00 1190 TEST LDA #0 
O80F- 85 O4 1200 STA BANK 
0811- 85 02 1210 STA ADDR 
0813- 20 58 FC 1220 JSR preps CLEAR SCREEN 
0816- AQ O04 1230 LDA #$0 
0818~ 85 0 120 STA SCREEN+1 
O81A- AQ 2 1290 LDA #$28 
081C- 85 06 1260 STA SCREEN 
1270 #---SELECT BANK----------------~~ 
O81E- A5 O4 1280 .1 LDA BANK 
0820- 8D 87 CO 1290 STA SELECT+$07 
0823- 09 BO 1300 ORA #380 CONVERT TO SCREEN ASCII 
0825- Ad 00 1310 LDY # 
0827- 91 06 1320 STA (SCREEN } Y 
0829- AD 83 CO 1330 LDA SELECT+$63 
13h0 $---TEST D000...DFFF------------- 
O82C- A9 EO 1350 LDA #$E0 
O82E- 85 01 1360 STA LIMIT 
0830- 20 68 08 1 30 JSR TEST.ZEROS 
08 - 20 6B 08 1380 JSR TEST.ONES 
0836~ 20 6E 08 1390 JSR TEST.FIVES 
0839- 20 71 08 1400 JSR TEST. AYES 
1410 #---SWITCH TO OTHER DO00--------- 
08 3c AD 8B CO 1420 LDA SELECT+$0B 
083F- AD 8B CO 1430 LDA SELECT+$0B 
14hQ #---TEST D000... FFFF=------------ 
0842- AQ 00 1450 LDA #0 
O844- 85 0 1460 STA LIMIT 
0846- 20 68 08 1470 JSR TEST. ZEROS 
0849- 20 6B 08 1480 JSR TEST.ONES 
O84C- 20 6E 08 1490 JSR TEST .FIVES 
O84F- 20 71 08 1500 JSR TEST. AYES 
1510 #---NEXT BANK-------------------- 
0852= A5 06 1526 LDA SCREEN 
0854- 49 80 1530 EOR #$80 
0856- 85 06 1540 STA SCREEN 
0858- 30 02 1550 BMI .2 
O85A- £6 0 1560 INC SCREEN+1 
O85C- E6 0 1570 2 INC BANK 
O85E- A5 0 1580 LDA BANK 
0860- Cd 0 1590 CMP #8 
0862- 90 BA 1600 BCC 
0864 81 co iesn ea TCH SeLECTS $01 
- + 
oR et £6 1630 
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1650 TEST.ZEROS 
08 68- AQ 00 1660 LDA #0 
O86A- 2 1 fo -HS 2C SKIP 
1680 TEST.ONES 
O86B- AQ FF 1690 LDA #$FF 
O86D- 2C 1700 -HS 2C SKIP 
1710 TEST.FIVES 
O86E- AQ 55 1720 LDA #$55 
0870~ 2C 1730 S 2c SKIP 
1740 TEST.AYES 
0871~ AQ AA 1750 LDA #$AA 
ota 85 0 1760 STA BYTE 
0875=- AI D 1770 LDA #$D0 
ob 85 93 1780 STA ADDR+1 
0879- 20 08 1730 1 JSR FILL 
087C- 20 92 08 1800 JSR COMPARE 
O87F- E6 03 1810 INC ADDR+1 
08 1- AS 0 1820 LDA ADDR+1 
0883- C5 0 1 po CMP LIMIT 
0885- DO F2 1840 BNE .1, 
0887- 60 1800 . RTS 
0888- AO 00 1870 FILL LDY #0 
O88A- A5 05 1880 DA BYTE 
O88C- 91 02 1890 .1 A (ADDR),Y 
O88E- C8 1900 INY 
O88F- DO FB 1910 BNE .1 
0891= 60 1920 RTS 
1930 fewer renner nme neem w ee ee ene wen ee n= 
13 O COMPARE 
0892- AO 00 1950 LDY #0 
O894- B1 02 1960 .1 LDA (ADDR),Y 
0896= C5 05 1970 CMP BYTE 
et DO O4 13 0 BNE . 
O89A- C 1990 .2 INY 
O89B- DO F7 2000 BNE .1 
089D- 60 2010 RTS 
OR aE 48 2020 .3 PHA SAVE ACTUAL DATA 
O89F- 84 00 2030 STY YSAVE SAVE Y-REG 
O8A1=- A5 0 20h0 LDA ADDR+1 PRINT ADDRESS OF FAILURE 
O8A3- AO 0 2050 LDY #2 
O8A5= 20 CA 08 2060 JSR CONBYTE 
O8A8- A5 00 2070 LDA YSAVE LO-BYTE OF ADDRESS 
O8AA- 20 CA 08 2080 JSR CONBYTE 
O8AD- C8 2090 INY 
O8AE=- A5 05 2100 LDA BYTE WHAT DATA SHOULD HAVE BEEN 
O8BO- 20 CA 08 2110 JSR CONBYTE 
O8B3- C8 2120 INY 
O8B4- 68 2130 PLA WHAT DATA REALLY WAS 
O8B5- 48 2140 PHA KEEP ON STACK TOO 
O8B6- 20 CA 08 2150 JSR CONBYTE 
O8B9- C8 2160 INY 
O8BA- 68 2170 PLA FIGURE WHICH BITS WERE WRONG 
O8BB- 45 05 2180 EOR BYTE 
O8BD- 20 CA 08 2190 JSR CONBYTE 
O8CO- AO 00 2200 LDY #0 DELAY LOOP TO SLOW THINGS DOWN 
O8C2- 88 2210 .4 DEY FOR OBSERVATION 
) C3 D 2220 BNE 
O8c5- Ad 00 2230 LDY YSAVE 
O8C7- 4C 9A 08 3230 e JMP .2 REJOIN TEST 
2260 CONBYTE 
O8CA- 48 2270 PHA 
O8CB- 4A 2280 LSR 
O8CC- 4A 2290 LSR 
O8CD- 4A 2300 LSR 
O8CE- 4A 2310 LSR 
O8CF- 20 D3 08 2320 JSR CONNYBBLE 
O8D2- 68 2330 
2340 CONNYBBLE 
O8D3- 29 OF 2350 #$0F 
O8D5=- C9 OA 2360 CMP #10 
O8D7- 90 02 2370 BCC .1 
O8D9- : 06 2380 ADC 6 
O8DB- BO 2390 .1 ADC #$B 
O8DD- 91 06 2400 STA (SCREEN ),Y 
O8DF- C8 2410 INY 
O8EO- 60 2420 RTS 
FC 
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QuICKTRACE 


relocatable program traces and displays the actual machine operations, while it is running 
without interfering with those operations. Look at these FEATURES: 


Single-Step mode displays the last instruction, 
next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 


Trace mode gives a running display of the Single- 
Step information and can be made to stop upon 
encountering any of nine user-definable 
conditions. 


Background mode permits tracing with no display 
until itis desired. Debugged routines run at near 
normal speed until one of the stopping cond- 
Itions is met, which causes the program to return 
to Single-Step. 


QUICK TRACE allows changes to the stack, 
registers, stopping conditions, addresses to be 
displayed, and output destinations for all this 
Information. All this can be done in Single-Step 
mode while running. 


Two optional display formats can show a sequence 
of operations at once. Usually, the information 
is given in four lines at the bottom of the screen. 


QUICK TRACE is completely transparent to the 
program being traced. It will not interfere with 
the stack, program, or I/O. 


QUICK TRACE is relocatable to any free part of 
memory. Its output can be sent to any slot or to 
the screen. 


QUICK TRACE is completely compatible with 
programs using Applesoft and Integer BASICs, 
graphics, and DOS. (Time dependent DOS 
operations can be bypassed.) It will display the 
graphics on the screen while QUICK TRACE is 
alive. 


QUICK TRACE is a beautiful way to show the 


incredibly complex sequence of operations that 
a computer goes through in executing a program 


QuicKTRACE $50 


Is a trademark of Anthro-Digital, Inc. 
Copyright © 1981 
Written by John Rogers 


Anthro - Digital Software, Inc. 
P.O. Box 1385 Pittsfield, MA 01202 
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Procedure for Converting S-C Source Files to Text Files 
Without Owning an S-C Assembler 
eevee ccccee cBOD Sander~-Cederlof 


Strangely enough, there are some of you who still do not own an 
S-C Assembler. And some of you buy or would like to buy our 
Quarterly Disks or the Applesoft Docu-Mentor disks. 


These disks contain source files which are only usable by the 

S-C Macro Assembler. However, it is possible (even without an 
S-C Assembler) to convert them to regular text files so as to 

be readable by another brand assembler/editor. 


The files appear in the catalog as type “I", which is.supposed 
to mean Integer BASIC. Of course the contents has nothing to 
do with Integer BASIC, but making them "I-files“ has several 
advantages: 


* they LOAD/SAVE faster than text files 
* standard DOS commands can be used for load/save 
* when the S-C Assembler is in the RAM card, 

DOS can automatically switch between 

Applesoft and Assembler as it normally 

would between Applesoft and Integer BASIC. 


There are also some dis-advantages: 


* some users have trouble believing they 
are not really Integer BASIC programs, 
and try to RUN them. 

* the files are harder for people without 
an S-C Assembler to convert to another 
brand. 


Which brings us back to the point of this article. 


To make the procedure simple, you need at least a 64K Apple. 
If you have an Apple //e, you are all set. An older Apple 
needs a “language card", or “RAM card". 


The first step in the conversion process is to load the file 
into memory and find out where it is. Start by booting with 
your DOS 3.3 System Master disk, which loads Integer BASIC into 
the RAM card. Then LOAD the S-C source file which you want to 
convert. Integer BASIC will be switched on, but don't try to 
LIST or RUN! 


Enter the Monitor by typing "CALL -151". At this point you 
will get an asterisk prompt. Look at locations S$4C, $4D, SCA, 
and $CB. You can do it like this: 


*4C.4D CA.CB 
004C- 00 96 
OOCA- 58 73 


Interpret the above as meaning that the source code begins in 
memory at $7358 and ends one byte before $9600. 
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If you use the monitor commands to look at the first 30 or 40 
bytes (or more), you will discover how the source lines are 
stored. Each line begins with a byte count, which if added to 
the address will give the address of the first byte of the next 
line. Each line ends with a 00 byte. The byte count includes 
both of these bytes, and all in between. Here is a sample 
line: 


OF E8 03 41 42 43 84 4C 44 41 81 23 24 35 00 


The second and third bytes are the binary form of the line 
number. As usual in 6502 domain, the number is stored low-byte 
first. $3E8 means the line above is line 1000. 


The fourth byte and beyond are ASCII codes for the text of the 
line, with two exceptions. If the bytes are less than $80, 
they are plain ASCII. If they are in the range from $8l 
through SBF, they represent a series of blanks. $81 means one 
blank, $84 means four blanks, and so on. The line above now 
decodes to: 


1000 ABC LDA #$5 
The other exception is not illustrated above, but here is one: 
08 F2 03 2A CO 20 2D 00 


The token SCO means “repeated character". The next byte after 
$CO gives the number of repetitions, and the byte after that 
tells what character to repeat. Above the CO 20 2D means 32 
“-—" characters, so the whole line looks like this: 


Armed with all that information, you can probably see how to 
write a simple Applesoft program to convert the memory image of 
the S-C source file to plain text and then write it on a text 
file. 


In fact, here is just such a program: 


REM CONVERT MEMORY IMAGE gor S-C SOURCE 
REM TQ ree (8) TEX 


PP 18),*, 258.8, * PEEK ID, 
HIMEM © 


REM OPEN. BRE (1) FILE 


OBRINT he Dee OPEN TEXTFILENAME™: PRINT D DELETE TEXTFILENAME * 
PRINT D$"OPEN TEXTFILENAME®; PRINT D$*"WRITE TEXTFILENAME * 


L = 
IF EP HM THEN PRINT D$*CLOSE": END 
GOSUB 500: REM DO ONE L 
GOTO 410 
REM DO ONE SOURCE LINE 
= PEEK (L 


OSS SlWwWWWwWwW PPro 
OWN =OWN2ON"6—]0 
elofofolofololoefololololoyo) 


510 N = 

520 LN = PEEK (L + me + 2 6 PEEK (L + 2): PRINT LN® ";:L = L + 2 

230 L=LbLe¢et: L): IF C = 0 THEN PRINT :L = L + 1:3 RETURN 

540 IF C < 128 THEN RORINT: CHRE CC (¢)5: 157° 23 

550 IF C < 192 THEN FORI=1T0C PRINT nom. : GOTO 530 

560 IF C = 192 THEN FORT = 1 TO PEEK (L + 1)3 PRINT NennS ( PEEK (L + 
2))3: NEXT I:L = L + 2: GOTO 530 

570 PRINT : PRINT D$"CLOSE"; PRINT "*®#ERROR IN SOURCE AT "L"##@"; END 
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Here is a blow-by-blow description of how to use the program. 


Boot your DOS System Master to load INTBASIC into the 
RAM card. 

Load the S-C source file. 

Type CALL-151 to get into the monitor. 

Type CA.CB to get the starting address of the S-C 
source program (xx yy). 

Type 300:xx yy to store the starting address ina 
place Applesoft will not clobber. 

Type 3D0G to return to Integer BASIC. 

Type RUN CONVERT S-C TO TEXT to execute the Applesoft 
program listed above. 

Stand back and wait while the program chugs through 
the bytes. When you see the Applesoft prompt again, 
it is all done! 


c lO wm ih W DN _ 
e 


If you add a line at 315 to turn on MONCIO, you can see the 
text as it is produced. 


Where T0O?, REViSItCEd.....ccccccccvcccccscceccceceseeBill Morgan 


Many thanks to all of you who responded to my questions abcut 
68000, C, and the future of Apple Assembly Line. 


Your answers ran about eight to one in favor of including 68000 
information in AAL. Several writers suggested starting with a 
few pages, and possibly splitting off a separate newletter 
someday. That sounds like a good plan, so we'll start a 
regular section next issue. Those of you who already know 
68000 can now start teaching the rest of us. Bob Urschel has 
already sent in a brief article and program! He has a QWERTY 
Q68 board like that we reviewed last month, and speaks very 
highly of it. 


Interest in Mackintosh (MacIntosh? Apple 32?) is growing 
rapidly: the announcement is expected at the Apple shareholder 
meeting in mid-January. Some reports claim that some 
developers have had Mac for up to 18 months now. We haven't 
been among those so privileged, but I hope to be the first on 
my block with one. (Unless the thing turns out to have some 
fatal flaw, like no expansion slots. That was one rumor!) 


Several of you also expressed an interest in C, but not even a 
majority. More like 30%. It looks like a number of people are 
curious, but feel that too much coverage would dilute AAL. 
Stephen Bach said it best, “... don't spread yourselves too 
thin and try to do C also.“ I expect to do occasional reviews 
and mentions of books and other aids to learning C, and to 
report on anything specifically related to C on Apple 
computers, but not much more. 
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